(menu-set-font): Renamed x-font-dialog to x-select-font.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 66793a4a805423c7304805b805772b6a58036d0d..aa7cd194acf034bd1e963546a0e6ad9f16dfd469 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -632,8 +632,8 @@ by \"Save Options\" in Custom buffers.")
 (defun menu-set-font ()
   "Interactively select a font and make it the default."
   (interactive)
-  (let ((font (if (functionp 'x-font-dialog)
-                 (x-font-dialog)
+  (let ((font (if (functionp 'x-select-font)
+                 (x-select-font)
                (mouse-select-font)))
        spec)
     (when font